www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_HtmlMovieAjax.asp

    <%response.Charset="gb2312"
On Error Resume Next%>
<!--#include file="../conn.asp" -->
<!--#include file="../function/Function.asp" -->
<!--#include file="../function/Labeling.asp" -->
<!--#include file="../function/sysfunction.asp" -->
<%Call CheckLogin("Htmlmovie")
MovieHtmlNum=Request.QueryString("MovieHtmlNum")
Set Rs=Server.CreateObject(YWNT_TMS_RS)
  sql="select top 1 ID,TypeID,MovieName,MovieActor,MovieRegion,MoviePic,MovieCoin,MovieClick,MovieLook,MovieDown,MovieSerialization,MovieContent,MovieDate,MovieCompetence,MovieGroup,SeverID,InflowType from YWNT_TMS_Movie where ID="&Session("MovieHtmlID")(0,Request.QueryString("MovieHtmlNum"))&"" 
  rs.open sql,conn,1,1
  If Not rs.Eof Then
  movc=rs.GetRows()
  End If
  rs.Close
  Set rs=Nothing
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select MovieTemplate from YWNT_TMS_MovieClass where ID="&movc(1,0)&""
Rs.open sql,Conn,1,1
Templateid=RS("MovieTemplate")
RS.close   
set RS=nothing
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select CssID,Template,TemplateType from YWNT_TMS_Template where ID="&Templateid&""
Rs.open sql,Conn,1,1
if not Rs.eof then
CssID=RS("CssID")
Template=RS("Template")
TemplateType=RS("TemplateType")
else
call Admin_ShowErr("<li>请先添加内容模版！</li>","Admin_Template.asp",0)
end if
RS.close   
set RS=nothing
script="<script type=""text/javascript"">" &vbcrlf
script=script&"function OpenWindow(Url)" &vbcrlf
script=script&"{" &vbcrlf
script=script&"window.open(Url,'WindowPlay','fullscreen=0,toolbar=0,location=0,menubar=0,directories=0,status=0,menubar=0,scrollbars=0,resizable="&GetSysPlay("MovieWindow")&",width="&GetSysPlay("MovieWidth")&",height="&GetSysPlay("MovieHeight")&",top=200');" &vbcrlf
script=script&"}" &vbcrlf
script=script&"</script>" &vbcrlf
Template=Tophtml(GetConfig("WebMeta"),GetConfig("WebCentent"),movc(2,0)&"--"&GetConfig("WebName"),CssID,script&Template)
Template=MovieLeb(movc,Template)
ClassUrlHtml=GetConfig("WebiInstallDir")&GetConfig("HtmlDIr")&"Movie_"&movc(0,0)&"."&GetConfig("WebHtmlMode")
call FSOSaveFile(ClassUrlHtml,ReplaceLableFlag(Template))
Response.Write MovieHtmlNum+1
call connclose()%>